home *** CD-ROM | disk | FTP | other *** search
/ Gigantic Games 2 / Gigantic Games 2.iso / pc / _w_ / wordpuzzle / word.puzzle < prev   
Text File  |  1994-12-23  |  14KB  |  252 lines
  1. 1 CLS:RANDOMIZE TIMER:GOSUB Screentitle
  2.   SCREEN 3,640,200,3,2
  3.   WINDOW 3,,,16,3:WINDOW OUTPUT 3
  4.   CLS:PRINT :PRINT "This Word Puzzle program was written and compiled for Public Domain usage"
  5. PRINT "and distribution by:":PRINT
  6. PRINT "                     Russell Mason"
  7. PRINT "                     5225 Old Hixson"
  8. PRINT "                     Hixson, Tn., 37343":PRINT
  9. PRINT "                     Release 1.1"
  10. PRINT "                     February, 1991":PRINT 
  11. PRINT  "There are no warranties or copyrights on this program, feel free to copy"
  12. PRINT  "and distribute it without restriction as long as it is not for sale."
  13. PRINT :PRINT :PRINT :PRINT :INPUT "Enter any key to continue";fr$
  14.  
  15. 2 CLS:CLEAR:RANDOMIZE TIMER:CLS:PRINT "Word Puzzle can played be three ways:":PRINT
  16.   PALETTE 0,0,0,1:PALETTE 4,0,0,.90595:PALETTE 5,1,0,0
  17.   PRINT "   1.  All the letters of the nineteen words will be shown ."
  18.   PRINT "   2.  Only the first letter of the nineteen words will be shown."
  19.   PRINT "   3.  A single word is randomally placed in the puzzle"
  20.   PRINT "       and all other letters are randomally selected."
  21.   n9=INT((1000-1+1)*RND)+1 
  22. 3 PRINT:INPUT "Enter the number (1, 2, or 3) to select game format";n6:CLS
  23.   IF n6=1 XOR n6=2 XOR n6=3 THEN 4 ELSE CLS:GOTO 2
  24. 4 IF n6=3 THEN GOTO 91
  25. 5 CLS:LOCATE 1,2:PRINT "The following games are available:"
  26.   LOCATE 3,1:PRINT "1.  ";"Cities":PRINT "2.  ";"States":PRINT "3.  ";"Countries"
  27.   PRINT "4.  ";"Kids-World":PRINT "5.  ";"It starts with Green":PRINT "6.  ";"Too"
  28.   PRINT "7.  ";"Affection":PRINT "8.  ";"Odor":PRINT "9.  ";"Boating"
  29. 6 PRINT "10. ";"Automobiles":PRINT "11. ";"Fishing":PRINT "12. ";"Trees"
  30. 7 PRINT "13. ";"Hunting":PRINT "14. ";"School":PRINT "15. ";"Cleanness"
  31. 8 PRINT "16. ";"Winter":PRINT "17. ";"War"
  32. 9 PRINT "18. ";"Hospitals":PRINT "19. ";"Body Parts"
  33. 10 LOCATE 3,28:PRINT "20. ";"Tools":LOCATE 4,28:PRINT "21. ";"Health"
  34. 11 LOCATE 5,28:PRINT "22. ";"Pollution":LOCATE 6,28:PRINT "23. ";"Lake"
  35. 12 LOCATE 7,28:PRINT "24. ";"Class":LOCATE 8,28:PRINT "25. ";"Computers"
  36. 13 LOCATE 9,28:PRINT "26. ";"Junk Food":LOCATE 10,28:PRINT "27. ";"Trucks"
  37. 14 LOCATE 11,28:PRINT "28. ";"Actors":LOCATE 12,28:PRINT "29. ";"Metals"
  38. 15 LOCATE 13,28:PRINT "30. ";"On a Table"
  39. 19 LOCATE 23,1:PRINT "Which Game do You wish to Play (Enter the number of the Game)";:INPUT gg
  40. 20 IF gg=1 THEN g$="Cities"
  41. 22 IF gg=2 THEN g$="States"
  42. 23 IF gg=3 THEN g$="Countries"
  43. 24 IF gg=4 THEN g$="KidsWorld"
  44. 25 IF gg=5 THEN g$="It starts with Green"
  45. 26 IF gg=6 THEN g$="Too"
  46. 27 IF gg=7 THEN g$="Affection" 
  47. 28 IF gg=8 THEN g$="Odor" 
  48. 29 IF gg=9 THEN g$="Boating"
  49. 30 IF gg=10 THEN g$="Automobiles"
  50. 31 IF gg=11 THEN g$="Fishing" 
  51. 32 IF gg=12 THEN g$="Trees"
  52. 33 IF gg=13 THEN g$="Hunting"
  53. 34 IF gg=14 THEN g$="School"
  54. 35 IF gg=15 THEN g$="Cleanness" 
  55. 36 IF gg=16 THEN g$="Winter"
  56. 37 IF gg=17 THEN g$="War" 
  57. 38 IF gg=18 THEN g$="Hospitals"
  58. 39 IF gg=19 THEN g$="Body Parts"
  59. 40 IF gg=20 THEN g$="Tools"
  60. 41 IF gg=21 THEN g$="Health"
  61. 42 IF gg=22 THEN g$="Pollution"
  62. 43 IF gg=23 THEN g$="Lake"
  63. 44 IF gg=24 THEN g$="Class"
  64. 45 IF gg=25 THEN g$="Computers"
  65. 46 IF gg=26 THEN g$="Junk Food"
  66. 47 IF gg=27 THEN g$="Trucks"
  67. 48 IF gg=28 THEN g$="Actors"
  68. 49 IF gg=29 THEN g$="Metals"
  69. 50 IF gg=30 THEN g$="On a Table"
  70.   IF gg>=1 AND gg<=30 THEN 91 ELSE GOTO 5
  71.  
  72. 91 CLS:DIM c$(11,11):DIM d1$(20)       'd1$( ) is city titles array
  73. DIM f(20):DIM g(20):DIM rt$(550):DIM ji(120):DIM fi(15):DIM gi(15)     'f & g are for word finish
  74. pv=1:CLS:COLOR 2
  75. a=2:h=12:i=12:t1=0:redo=19
  76. IF n6=3 THEN n8=520:COLOR 1:LOCATE 12,31:PRINT "Thinking":COLOR 2:GOSUB Challenge:GOTO 96                
  77. COLOR 1:LOCATE 12,31:PRINT "Thinking"
  78. OPEN g$ FOR INPUT AS #1
  79. FOR hu=1 TO 142:INPUT #1,rt$(hu):NEXT hu:CLOSE #1
  80. gg$=rt$(1):zz$=rt$(2):lim=3:CLS:COLOR 4
  81. LINE (0,4)-(420,18),4,bf:LINE (0,36)-(420,50),4,bf:LINE (0,69)-(420,83),4,bf
  82. LINE (0,101)-(420,115),4,bf:LINE (0,132)-(420,146),4,bf:LINE (0,164)-(420,177),4,bf
  83. COLOR 2
  84. FOR d=1 TO 11:c=2
  85. IF d=1 OR d=3 OR d=5 OR d=7 OR d=9 OR d=11 THEN COLOR 2,4
  86. FOR b=1 TO 11:c$(d,b)=rt$(lim)
  87. LOCATE a,c:PRINT c$(d,b)
  88. c=c+5:h=h+40:lim=lim+1
  89. NEXT b:a=a+2:i=i+16:h=12
  90. NEXT d:Li=2:LL=15:lim=124:COLOR 2,0:CIRCLE (500,11),6:PAINT (500,11),3,2
  91. GET (493,7)-(507,15),ji
  92. FOR v=1 TO 19:d$=rt$(lim):d1$(v+1)=d$                'loop for making cities on screen
  93. IF n6=1 THEN LOCATE Li,65:PRINT d$            'prints whole word on screen
  94. IF n6=2 THEN LOCATE Li,65:PRINT LEFT$(d$,1)   'prints only first word letter on screen 
  95. IF v<=18 THEN PUT (493,LL),ji           'drawing of yellow circle by city name
  96. Li=Li+1:LL=LL+8:lim=lim+1:NEXT v:ERASE rt$
  97. 96 PUT (448,168),ji:LOCATE 22,59:PRINT "Restart Game"
  98. CIRCLE (419,180),6:PAINT (419,180),3,2:LOCATE 23,55:PRINT "Restart Letter Selection":ERASE ji
  99. IF n6=1 OR n6=2 THEN LOCATE 24,1:COLOR 1,0:PRINT "Select a ";zz$;:PRINT " related word by pressing left mouse on a orange circle";:COLOR 2
  100. IF n6=3 THEN LOCATE 24,1:COLOR 1,0:PRINT "Press left mouse on orange circle by above word ";d$;:COLOR 2
  101. GOSUB start
  102. END
  103.  
  104.  
  105. start:   'sub for city selection on yellow circle
  106. 100 WHILE MOUSE(0)=0:WEND
  107. 150 r=MOUSE(3):s=MOUSE(4)
  108. 175 IF r>413 AND r<=425 AND s>=174 AND s<=186 AND pop=2 THEN GOSUB reselect:pv=1:t1=0    'restarts letter selection of word in puzzle
  109. 180 IF r>449 AND r<=462 AND s>=165 AND s<=180 AND POINT (2,3)=2 THEN CLS:COLOR 1:GOTO 2 'restarts game
  110. 200 IF POINT(r,s)=3 AND t1=0 AND r<510 AND r>490 THEN col=65:row=INT(s/8)+1:GOSUB punk   'when  t1=1, a city has been yellowed, prevents two cities from being selected.
  111. 450 IF t1=2 THEN LOCATE 24,1:GOSUB FIRSTLETTER
  112. 475 IF stat=1 THEN t1=0:pv=1:stat=0:GOTO 100
  113. 500 GOTO 100
  114. 600 RETURN
  115.  
  116. punk:               'yellowing of game title name, from sub start prior to finding it in the puzzle
  117. 110 COLOR 2,3:FOR tt=1 TO 20
  118. 131 IF tt=row AND n6=1 THEN LOCATE tt,col:PRINT d1$(tt):t1=1:a=0:GOTO 201
  119. 135 IF tt=row AND n6=2 THEN LOCATE tt,col:PRINT LEFT$(d1$(tt),1):t1=1:a=0:GOTO 201
  120. 140 IF tt=row AND n6=3 THEN a=0:t1=1:GOTO 201
  121. 155 NEXT tt
  122. 201 COLOR 2,0:PSET (2,3)
  123. 220 IF n6=2 THEN z9$=LEFT$(d1$(tt),1)+"__"   ELSE z9$=d1$(tt)       'shows first word letter (n6=1) and two spaces or whole word (n6=1)
  124. 301 LOCATE 24,1:COLOR 1,0:PRINT "Select a letter of the word ";z9$;:PRINT " from the above letters                         ";
  125. 401 t1=2:COLOR 2
  126. 501 RETURN 
  127.  
  128.  
  129. FIRSTLETTER:          'sub for selecting first letter in puzzle
  130. 810 m=12:n=12:FOR d1=1 TO 11:FOR b1=1 TO 11:LZ=ASC(c$(d1,b1))
  131. 820 IF pv<LEN(d1$(tt)) OR pv=LEN(d1$(tt)) THEN lp=ASC(MID$(d1$(tt),pv,1)) ELSE GOTO 840
  132. 830 IF r>m-5 AND r<m+5 AND s>n-5 AND s<n+5 AND lp=LZ  THEN GOSUB SECONDLETTER:RETURN
  133. 835 IF stat=1 THEN RETURN
  134. 840 m=m+40:NEXT b1
  135. 850 n=n+16:m=12:NEXT d1                                                                                                                                                     
  136. 860 RETURN
  137.  
  138. SECONDLETTER:          'sub for selecting second letter in puzzle                                                                                                                         
  139. 1000 IF pv=1 THEN  COLOR 1,0:pop=2:LOCATE 2*d1,5*b1-3:PRINT c$(d1,b1):b2=b1:d2=d1:f(pv)=d1:g(pv)=b1:fi(pv)=((b1-1)*40)+12:gi(pv)=((d1-1)*16)+12:pv=pv+1:RETURN
  140. 1200 FOR lp=-1 TO 1:FOR rl=-1 TO 1    'loop for determining (d1,b1) position of new letter vs past selected letter.  Maintains straight line in letter selection.
  141. 1300 IF pv=2 AND d2=d1+rl AND b2=b1+lp THEN COLOR 1,0:LOCATE 2*d1,5*b1-3:PRINT c$(d1,b1):COLOR 2:b2=b1:d2=d1:f(pv)=d1:g(pv)=b1:fi(pv)=((b1-1)*40)+12:gi(pv)=((d1-1)*16)+12:pv=pv+1:qq=rl:ww=lp:RETURN  
  142. 1400 IF pv>=3 AND d2=d1+qq AND b2=b1+ww THEN GOSUB THIRDLETTER
  143. 1500 IF stat=1 THEN RETURN
  144. 1600 NEXT rl:NEXT lp
  145. 1700 RETURN
  146.  
  147. THIRDLETTER:                'sub for determining above third letters in puzzle     
  148. 2000 IF pv<3 THEN RETURN
  149. 2100 IF pv>=3 AND d2=d1+qq AND b2=b1+ww THEN COLOR 1,0:LOCATE 2*d1,5*b1-3:PRINT c$(d1,b1):f(pv)=d1:g(pv)=b1:fi(pv)=((b1-1)*40)+12:gi(pv)=((d1-1)*16)+12:COLOR 2:b2=b1:d2=d1:pv=pv+1
  150. 2200 IF pv=LEN(d1$(tt))+1 THEN GOSUB final.letter
  151. 2250 IF pv=LEN(d1$(tt))+1 THEN COLOR 2:FOR po=1 TO kL:LOCATE 2*f(po),5*g(po)-3:PRINT c$(f(po),g(po)):NEXT po
  152. 2275 IF redo=0 THEN kik=1:FOR kik=1 TO 15000:NEXT kik:CLS:LOCATE 11,29:PRINT "You Win ! ! !":FOR jjj=1 TO 15000:NEXT jjj:CLS:COLOR 1:GOTO 2
  153. 2300 IF pv=LEN(d1$(tt))+1 AND (n6=1 OR n6=2) THEN LOCATE 24,1:COLOR 1:PRINT "Select another ";zz$;:PRINT " related word                                                        ";:COLOR 2:stat=1
  154. 2400 IF pv=LEN(d1$(tt))+1 AND n6=3 THEN lpo=1:FOR jjjj=1 TO 11000:NEXT jjjj:COLOR 1:GOTO 2
  155. 2900 RETURN
  156.  
  157. final.letter:          'sub for circling word in puzzle after solving
  158.   kL=LEN(d1$(tt))
  159.   IF pv=LEN(d1$(tt))+1 THEN redo=redo-1:COLOR 0,0:LOCATE row,col-3:PRINT "                   ":COLOR 2        'blanks out city and circle after puzzle letters are solved
  160. IF fi(2)>fi(1) AND gi(2)<gi(1) THEN CIRCLE (fi(1),gi(1)),13,5,2.35,5.4978:CIRCLE (fi(kL),gi(kL)),13,5,5.4978,2.35:LINE (fi(1)-9,gi(1)-4)-(fi(kL)-9,gi(kL)-4),5:LINE (fi(1)+9,gi(1)+4)-(fi(kL)+9,gi(kL)+4),5
  161. IF fi(2)>fi(1) AND gi(2)=gi(1) THEN CIRCLE (fi(1),gi(1)),13,5,1.5708,4.7124:CIRCLE (fi(kL),gi(kL)),13,5,4.7124,1.5708:LINE (fi(1),gi(1)-6)-(fi(kL),gi(kL)-6),5:LINE (fi(1),gi(1)+6)-(fi(kL),gi(kL)+6),5
  162. IF fi(2)>fi(1) AND gi(2)>gi(1) THEN CIRCLE (fi(1),gi(1)),13,5,.7854,3.927:CIRCLE (fi(kL),gi(kL)),13,5,3.927,.7854:LINE (fi(1)+9,gi(1)-4)-(fi(kL)+9,gi(kL)-4),5:LINE (fi(1)-9,gi(1)+4)-(fi(kL)-9,gi(kL)+4),5
  163. IF fi(2)=fi(1) AND gi(2)>gi(1) THEN CIRCLE (fi(1),gi(1)),13,5,0,3.1416:CIRCLE (fi(kL),gi(kL)),13,5,3.1416,0:LINE (fi(1)-13,gi(1))-(fi(kL)-13,gi(kL)),5:LINE (fi(1)+13,gi(1))-(fi(kL)+13,gi(kL)),5
  164. IF fi(2)<fi(1) AND gi(2)>gi(1) THEN CIRCLE (fi(1),gi(1)),13,5,5.4978,2.3562:CIRCLE (fi(kL),gi(kL)),13,5,2.3562,5.4978:LINE (fi(1)-9,gi(1)-4)-(fi(kL)-9,gi(kL)-4),5:LINE (fi(1)+9,gi(1)+4)-(fi(kL)+9,gi(kL)+4),5
  165. IF fi(2)<fi(1) AND gi(2)=gi(1) THEN CIRCLE (fi(1),gi(1)),13,5,4.7124,1.5708:CIRCLE (fi(kL),gi(kL)),13,5,1.5708,4.7124:LINE (fi(1),gi(1)-6)-(fi(kL),gi(kL)-6),5:LINE (fi(1),gi(1)+6)-(fi(kL),gi(kL)+6),5
  166. IF fi(2)<fi(1) AND gi(2)<gi(1) THEN CIRCLE (fi(1),gi(1)),13,5,3.927,.7854:CIRCLE (fi(kL),gi(kL)),13,5,.7854,3.927:LINE (fi(1)-9,gi(1)+4)-(fi(kL)-9,gi(kL)+4),5:LINE (fi(1)+9,gi(1)-4)-(fi(kL)+9,gi(kL)-4),5
  167. IF fi(2)=fi(1) AND gi(2)<gi(1) THEN CIRCLE (fi(1),gi(1)),13,5,3.1416,0:CIRCLE (fi(kL),gi(kL)),13,5,0,3.1416:LINE (fi(1)-13,gi(1))-(fi(kL)-13,gi(kL)),5:LINE (fi(1)+13,gi(1))-(fi(kL)+13,gi(kL)),5
  168. pop=1
  169. RETURN
  170.     
  171.     
  172.  
  173.  
  174. Challenge:             'sub for n6=3, randon word and puzzle letter
  175. IF n6=1 OR n6=2 THEN RETURN
  176. FOR Lp1=1 TO n9:NEXT Lp1          'a dummy timer to vary direction of word
  177. dir=INT((8-1+1)*RND)+1                    'direction of word in puzzle
  178. IF n6=3 THEN OPEN "Hard" FOR INPUT AS #2
  179. n7=INT((n8-1+1)*RND)+1                 'sets up rnd gen limits (1 to n8)
  180. FOR tty=1 TO n8:INPUT #2,rt$(tty)      'input words to array from disk
  181. IF n7=tty THEN d$=rt$(tty):CLOSE 2:GOTO 5000   'defines word to rnd number & exits loop
  182. NEXT tty:CLOSE #2
  183. 5000 vx=INT((11-1+1)*RND)+1:amt=LEN(d$)   'rnd x coordinate
  184. vy=INT((11-1+1)*RND)+1:ERASE rt$                    'rnd y coordinate
  185. IF dir=3 OR dir=5 OR dir=7 AND (vx+amt)>11 THEN vx=11-amt
  186. IF dir=1 OR dir=3 OR dir=8 AND (vy-amt)<1  THEN vy=1+amt
  187. IF dir=4 OR dir=6 OR dir=8 AND (vx-amt)<1  THEN vx=1+amt
  188. IF dir=2 OR dir=4 OR dir=7 AND (vy+amt)>11 THEN vy=11-amt
  189. FOR d=1 TO 11
  190. FOR b=1 TO 11
  191. c$(d,b)=CHR$(INT((26-1+1)*RND)+1+64)
  192. NEXT b:NEXT d           'loop determines initial puzzle letters randonally
  193. FOR d3=1 TO 11:FOR b3=1 TO 11    'loop places word in puzzle
  194. IF b3=vx AND d3=vy AND dir=1 THEN loo=1:FOR aa1=1 TO amt:c$(d3-aa1+1,b3)=MID$(d$,aa1,1):NEXT aa1
  195. IF b3=vx AND d3=vy AND dir=2 THEN loo=1:FOR aa2=1 TO amt:c$(d3+aa2-1,b3)=MID$(d$,aa2,1):NEXT aa2
  196. IF b3=vx AND d3=vy AND dir=3 THEN loo=1:FOR aa3=1 TO amt:c$(d3-aa3+1,b3+aa3-1)=MID$(d$,aa3,1):NEXT aa3
  197. IF b3=vx AND d3=vy AND dir=4 THEN loo=1:FOR aa4=1 TO amt:c$(d3+aa4-1,b3-aa4+1)=MID$(d$,aa4,1):NEXT aa4
  198. IF b3=vx AND d3=vy AND dir=5 THEN loo=1:FOR aa5=1 TO amt:c$(d3,b3+aa5-1)=MID$(d$,aa5,1):NEXT aa5
  199. IF b3=vx AND d3=vy AND dir=6 THEN loo=1:FOR aa6=1 TO amt:c$(d3,b3-aa6+1)=MID$(d$,aa6,1):NEXT aa6
  200. IF b3=vx AND d3=vy AND dir=7 THEN loo=1:FOR aa7=1 TO amt:c$(d3+aa7-1,b3+aa7-1)=MID$(d$,aa7,1):NEXT aa7
  201. IF b3=vx AND d3=vy AND dir=8 THEN loo=1:FOR aa8=1 TO amt:c$(d3-aa8+1,b3-aa8+1)=MID$(d$,aa8,1):NEXT aa8
  202. NEXT b3:NEXT d3:CLS
  203. COLOR 4
  204. LINE (0,4)-(420,18),4,bf:LINE (0,36)-(420,50),4,bf:LINE (0,69)-(420,83),4,bf
  205. LINE (0,101)-(420,115),4,bf:LINE (0,132)-(420,146),4,bf:LINE (0,164)-(420,177),4,bf
  206. FOR d=1 TO 11:c=2
  207. IF d=1 OR d=3 OR d=5 OR d=7 OR d=9 OR d=11 THEN COLOR 2,4
  208. FOR b=1 TO 11
  209. LOCATE a,c:PRINT c$(d,b)
  210. c=c+5:h=h+40
  211. NEXT b:a=a+2:i=i+16:h=12
  212. NEXT d:Li=2:LL=11:COLOR 2,0
  213. FOR v=1 TO 2:d1$(v+1)=d$             'makes d$ word nineteen times
  214. IF v=1 THEN CIRCLE (500,11),6:PAINT (500,11),3,2:GET (493,7)-(507,15),ji  'draw circle by word
  215. IF v=1 THEN LOCATE Li,65:PRINT d$ ELSE RETURN    'prints first word of array only
  216. Li=Li+1:LL=LL+8:NEXT v
  217. RETURN
  218.  
  219. reselect:                      'sub for restarting letter selection
  220. COLOR 2,0
  221. IF n6=1 THEN LOCATE row,65:PRINT d1$(tt)              'prints whole word on screen
  222. IF n6=2 THEN LOCATE row,65:PRINT LEFT$(d1$(tt),1)        'prints only first word letter on screen
  223. FOR nn=1 TO pv
  224. IF (5*g(nn)-3)=-3 THEN 6000           'I do not know why this line is reqd.
  225. LOCATE 2*f(nn),5*g(nn)-3:PRINT c$(f(nn),g(nn))
  226. NEXT nn
  227. 6000 IF n6=1 XOR n6=2 THEN LOCATE 24,1:COLOR 1,0:PRINT "Select a ";zz$;:PRINT " related word by pressing left mouse on a orange circle";:COLOR 2
  228. IF n6=3 THEN LOCATE 24,1:COLOR 1,0:PRINT "Press left mouse on orange circle by above word ";d$;"       ";:COLOR 2
  229. RETURN
  230.  
  231. Screentitle:          'sub for fancy screen at game beginning
  232. SCREEN 2,320,200,3,1
  233. WINDOW 7,,,1,2
  234. WINDOW OUTPUT 7
  235. FOR x=1 TO 30
  236. FOR a=1 TO 3
  237. PALETTE 4,RND(1),RND(1),RND(1)
  238. COLOR 4,0
  239. NEXT a
  240. a=INT(RND(1)*20):b=INT(RND(1)*20):COLOR 3,4
  241. IF a<5 THEN a=7
  242. IF a>30 THEN a=28
  243. IF b>19 THEN b=19
  244. IF b<3 THEN b=3
  245. LOCATE a,b:PRINT "Word Puzzle"
  246. FOR nit=1 TO 1200:NEXT nit                   'a dummy timer
  247. COLOR 2,4:LINE (10,10)-(300,184),4,bf
  248. NEXT x
  249. WINDOW CLOSE 7:SCREEN CLOSE 2
  250. RETURN
  251.  
  252.